home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / cg / savepage.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-07  |  1KB  |  41 lines
  1. /* SavePage -- Save current char settings to rexx macro */
  2. /* By Bob Caron ©1994 NewTek, Inc.                      */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. filnam = 'ENV:SavePage.state'
  7. version = 'SavePage v1.4'
  8.  
  9. if (exists(filnam)) then do
  10.     if (~open(state, filnam, 'R')) then break
  11.     if (readln(state) ~= version) then break
  12.     file=readln(state)
  13.     end
  14.     call close state
  15.  
  16. if file="" | file="FILE" then
  17.    file="toaster:CG/"||GET_PAGE(TYPE)||"Page"
  18. if lastpos('/',file,length(file)-1)~=0 then do
  19.    filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
  20.    path=left(file,(lastpos('/',file,length(file))-1))
  21.    end
  22. else do
  23.    filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
  24.    path=left(file,(lastpos(':',file,length(file))))
  25.    end
  26.  
  27. outfile=REQ_FILE("Save Page",filenam,path)
  28.  
  29. file=script
  30. if (open(state, filnam, 'W')) then do
  31.     call writeln state, version
  32.     call writeln state, outfile
  33.     call close state
  34. end
  35.  
  36. if outfile="" then
  37.    exit
  38.  
  39. call SAVEPAGE(outfile)
  40.  
  41.